home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-11 / popvid.zip / WHATDEMO.PRG < prev    next >
Text File  |  1993-01-04  |  579b  |  21 lines

  1. memvar='ldpopvid/'
  2. beep=chr(7)
  3. CLEAR
  4. ? beep
  5. * call vidpop with the external 'POP' command bracketed with beeps for timing
  6. run pop popload
  7. ? beep
  8. * clear the screen and do it again with 'POPVID.OBJ' linked in
  9. ? inkey(2)                   && first, waste a couple of seconds
  10. clear
  11. ? beep
  12. CALL popvid with memvar      && call with a memvar command
  13. ? beep
  14. set console off              && hide the result of the ?
  15. ? inkey(2)  &&  waste aother couple of seconds
  16. set console on
  17. ? beep
  18. CALL popvid with 'windpop/'  && call with a direct command string
  19. ? beep
  20. RETURN
  21.